My leaderboard data doesn't get saved. How do I fix it?

Hello! I recently made a script for a global leaderboard in my game. The only problem is that my data gets lost everytime.

This is the error: DataStore request was added to queue. If request queue fills, further requests will be dropped. Try sending fewer requests

local sg = script.Parent
local sample = script:WaitForChild("Sample")
local sf = sg:WaitForChild("ScrollingFrame")
local ui = sf:WaitForChild("UI")

local dataStoreService = game:GetService("DataStoreService")
local dataStore = dataStoreService:GetOrderedDataStore("Leaderboard")


wait(10)

script.Parent.Update.Text = "Updating leaderboard.."

script.Parent.Loading.Visible = false
while true do
    for i,plr in pairs(game.Players:GetChildren()) do
        if plr.UserId>0 then
            local w = plr.leaderstats.Coins.Value
            if w then
                pcall(function()
                    dataStore:UpdateAsync(plr.UserId,function(oldVal)
                        return tonumber(w)
                    end)
                end)
            end
        end
    end    
    local smallestFirst = false
    local numberToShow = 100
    local minValue = 1
    local maxValue = 10e30
    local pages = dataStore:GetSortedAsync(smallestFirst, numberToShow, minValue, maxValue)
    local top = pages:GetCurrentPage()
    local data = {}
    for a,b in ipairs(top) do
        local userid = b.key
        local points = b.value
        local username = "[Failed To Load]"
        local s,e = pcall(function()
         username = game.Players:GetNameFromUserIdAsync(userid)
        end)
        if not s then
           warn("Error getting name for "..userid..". Error: "..e)
        end
        local image = game.Players:GetUserThumbnailAsync(userid, Enum.ThumbnailType.HeadShot, Enum.ThumbnailSize.Size150x150)
        table.insert(data,{username,points,image})
    end
    ui.Parent = script
    sf:ClearAllChildren()
    ui.Parent = sf
    for number,d in pairs(data) do
        local name = d[1]
        local val = d[2]
        local image = d[3]
        local color = Color3.new(1,1,1)
        if number == 1 then
            color = Color3.new(1,1,0)
        elseif number == 2 then
            color = Color3.new(0.9,0.9,0.9)
        elseif number == 3 then
            color = Color3.fromRGB(166, 112, 0)
        end
        local new = sample:Clone()
        new.Name = name
        new.LayoutOrder = number
        new.Image.Image = image
        new.Image.Place.Text = number
        new.Image.Place.TextColor3 = color
        new.PName.Text = name
        new.Value.Text = val
        new.Value.TextColor3 = color
        new.PName.TextColor3 = color
        new.Parent = sf
    end
    wait()
    sf.CanvasSize = UDim2.new(0,0,0,ui.AbsoluteContentSize.Y)
    script.Parent.Update.Text = "Updating leaderboard in 3 minutes..."
    wait(200)
end

I save data every 200 seconds, so I don't know why it gets lost.