How to make this scrollingframe system work better?

local plr = game.Players.LocalPlayer
local frame = script.Parent
local buttons = {}

function createButtons(num)
    for i = 1, num do
        local but = Instance.new('TextButton')
        but.Size = UDim2.new(1,0,0,25)
        but.Position = UDim2.new(0,0,0,#buttons * but.Size.Y.Offset)
        but.Parent = frame
        table.insert(buttons, but)
        if frame.AbsoluteCanvasSize.Y <= #buttons * but.Size.Y.Offset then
            frame.CanvasSize = UDim2.new(0,0,0,#buttons * but.Size.Y.Offset)
        end
    end
end


while wait(1) do 
    createButtons(1)
end

Trying to make a infinite catalog system, this is an automatic frame but it has no uigridlayout or list in it, any ideas how do i make this work in 3 columns? i have just 1 now.