Why do I keep getting a game script timeout error on my server lock GUI?

So I am making a developer GUI and a part of it is the ability to lock the server. But when I test it studio freezes and then a few seconds later I get a game script timeout error. Not sure what I am doing wrong. Here are the various scripts that it uses:

The script that creates the BoolValue and kicks players when the value is true:

local serverlock = Instance.new("BoolValue", game:GetService("ReplicatedStorage"))
serverlock.Name = "lock"
serverlock.Value = false

serverlock.Changed:Connect(function()
    if serverlock.Value == true then
        while serverlock.Value == true do
            game.Players.PlayerAdded:Connect(function(plr)
                if plr:GetRankInGroup(5014306) >= 252 then
                    print("non-kickable")
                else

                wait()

                plr:Kick("The server is locked.")
                end
            end)
        end
    end
end)

The OnServerEvent script that updates the value to true:

local storage = game:GetService("ReplicatedStorage")
local events = storage:WaitForChild("RemoteEvents")

events.ServerLockOn.OnServerEvent:Connect(function(player)
    storage.lock.Value = true
end)

The OnServerEvent script that updates the value to false:

local storage = game:GetService("ReplicatedStorage")
local events = storage:WaitForChild("RemoteEvents")

events.ServerLockOff.OnServerEvent:Connect(function(player)
    storage.lock.Value = false
end)

The FireServer script that causes the value to be updated to true:

script.Parent.MouseButton1Click:Connect(function()
    local storage = game:GetService("ReplicatedStorage")
    local events = storage:WaitForChild("RemoteEvents")

    events.ServerLockOn:FireServer()

    script.Parent.Parent.LockButton2.Position = UDim2.new(0.101, 0,0.806, 0)
    script.Parent.Position = UDim2.new(-1,0,0,0)
end)

The FireServer script that causes the value to be updated to false:

script.Parent.MouseButton1Click:Connect(function()
    local storage = game:GetService("ReplicatedStorage")
    local events = storage:WaitForChild("RemoteEvents")

    events.ServerLockOff:FireServer()

    script.Parent.Parent.LockButton1.Position = UDim2.new(0.101, 0,0.806, 0)
    script.Parent.Position = UDim2.new(-1,0,0,0)
end)

Those are all the scripts that the system uses. Any ideas?