[Walkerbo]

Ok, got it going, yes there were so many bugs I pulled it apart and started again.
This time I got rid of the first static frame.

local frameList = {
    "BaseBasicFrameTemplate",
    "BasicFrameTemplate",
    "BasicFrameTemplateWithInset",
    "ButtonFrameTemplate",
    "ButtonFrameTemplateMinimizable",
    "ChatConfigBorderBoxTemplate",
    "ChatConfigBoxTemplate",
    "ChatConfigBoxWithHeaderTemplate",
    "ChatConfigCheckBoxTemplate",
    "CovenantListWideFrameTemplate",
    "CovenantMissionBaseFrameTemplate",
    "DefaultPanelTemplate",
    "DefaultPanelTemplate",
    "EtherealFrameTemplate",
    "FloatingBorderedFrame",
    "GarrisonMissionBaseFrameTemplate",
    "GlowBorderTemplate",
    "GlowBoxTemplate",
    "HelpFrameContainerFrameTemplate",
    "InsetFrameTemplate",
    "InsetFrameTemplate2",
    "InsetFrameTemplate3",
    "InsetFrameTemplate4",
    "KeyBindingFrameBindingButtonTemplate",
    "KeyBindingFrameBindingButtonTemplateWithLabel",
    "PortraitFrameTemplate",
    "PortraitFrameTemplateMinimizable",
    "PortraitFrameTemplateNoCloseButton",
    "SimplePanelTemplate",
    "ThinBorderTemplate",
    "TooltipBorderedFrameTemplate",
    "TranslucentFrameTemplate",
    "UIPanelDialogTemplate",
 }
 
 local width, height = 300, 150
 local right, down, counter = 20, -20, 0
 
 for k, v in pairs(frameList) do
    f = CreateFrame("Frame", "frame" .. k, UIParent, v)
    f:SetSize(width, height)
    f:SetPoint("TOPLEFT", right, down, counter)
 
    ftb = CreateFrame("Frame", "ftb", f)
    ftb:SetSize(width, height / 2)
    ftb:SetPoint("CENTER", "frame" .. k)
 
    ftbt = ftb:CreateFontString("ftbt")
    ftbt:SetAllPoints(ftb)
    ftbt:SetFontObject(FocusFontSmall)
    ftbt:SetText(v)
 
    down = down - 160
    counter = counter + 1
 
    if counter == 5 then
       right = right + 310
       down = -20
       counter = 0
    end
 end

Here are the frames.