While loop speeding up with each input change?

So I'm trying to make a script that takes the value from one IntValue (We'll call it Value A), process it, and apply it to a different IntValue (Value B). So far the code works, but I have a problem with it speeding up.

As an example, the first time it reads Value A, Value B will increase/decrease by 1 every 0.1 seconds. The second time it reads from Value A, Value B changes every 0.05 seconds (not accurate, but just to give an idea of what's happening).

bin = script.Parent
Thrust = bin.Thrust --This is Value A, where it reads from
Speed = bin.Speed --This is Value B, where it writes to
TopSpeed = 20
-------------------------------------------
function ForwardBack()
    while true do
        if Thrust.Value == 1 then
            if Speed.Value < TopSpeed then
                Speed.Value = (Speed.Value+1)
            end
        elseif Thrust.Value == -1 then
            if Speed.Value > (-TopSpeed/2) then
                Speed.Value = (Speed.Value-1)
            end
        elseif Thrust.Value == 0 then
            if Speed.Value > 0 then
                Speed.Value = (Speed.Value-1)
            elseif Speed.Value < 0 then
                Speed.Value = (Speed.Value+1)
            end
        end
        wait(0.1) --Here's where the issue is, I think?
    end
end
-------------------------------------------
Thrust.Changed:Connect(ForwardBack)

Any idea what might be causing this? I've tried putting waits in each 'Thrust.Value' check but it doesn't change anything.

For reference, here's the script that writes to Thrust.Value.

uis = game:GetService("UserInputService")

bin = script.Parent
Thrust = bin.Thrust
Yaw = bin.Yaw
Alt = bin.Altitude
--------------------------------------------------------------
uis.InputBegan:Connect(function(Input)
    if Input.KeyCode == Enum.KeyCode.W then
        Thrust.Value = (Thrust.Value+1)
    end
    if Input.KeyCode == Enum.KeyCode.S then
        Thrust.Value = (Thrust.Value-1)
    end
    if Input.KeyCode == Enum.KeyCode.A then
        Yaw.Value = (Yaw.Value-1)
    end
    if Input.KeyCode == Enum.KeyCode.D then
        Yaw.Value = (Yaw.Value+1)   
    end
    if Input.KeyCode == Enum.KeyCode.R then
        Alt.Value = (Alt.Value+1)
    end
    if Input.KeyCode == Enum.KeyCode.F then
        Alt.Value = (Alt.Value-1)
    end
end)

uis.InputEnded:Connect(function(Input)
    if Input.KeyCode == Enum.KeyCode.W then
        Thrust.Value = (Thrust.Value-1)
    end
    if Input.KeyCode == Enum.KeyCode.S then
        Thrust.Value = (Thrust.Value+1)
    end
    if Input.KeyCode == Enum.KeyCode.A then
        Yaw.Value = (Yaw.Value+1)
    end
    if Input.KeyCode == Enum.KeyCode.D then
        Yaw.Value = (Yaw.Value-1)   
    end
    if Input.KeyCode == Enum.KeyCode.R then
        Alt.Value = (Alt.Value-1)
    end
    if Input.KeyCode == Enum.KeyCode.F then
        Alt.Value = (Alt.Value+1)
    end
end)
--------------------------------------------------------------