[UNSOLVED] Spamming output even with Delay's?

I've created an orb the follows you around, and had fixed my previous problem of the orb and it's casing being out on sync by welding them.

The problem now is that when it creates the weld, it spams it (which appears to be lagging it), and I have no clue how to fix it.

I've tried Wait() and Variables, yet it just keeps on spamming.

Here is the looped Code:

                while wait() do
            BP.Position = Character:FindFirstChild("Torso").CFrame * CFrame.new(1.7,1.7,1.2).p
            BP2.Position = Character:FindFirstChild("Torso").CFrame * CFrame.new(1.7,1.7,1.2).p
            local PetInvisibleEvent = game.Workspace.PetInvisibleEvent
            PetInvisibleEvent.OnServerEvent:connect(function()
                OrbPet.Transparency = .2
                OrbPetCase.Transparency = .6
                wait(.005)
                OrbPet.Transparency = .4
                wait(.005)
                OrbPet.Transparency = .6
                wait(.005)
                OrbPet.Transparency = .8
                wait(.005)
                OrbPet.Transparency = .1
                OrbPetCase.Transparency = .1
                OrbPet.Parent = game:GetService("ServerStorage")
            end)
            local PetVisibleEvent = game.Workspace.PetVisibleEvent
            PetVisibleEvent.OnServerEvent:connect(function()
                OrbPet.Parent = Character
                OrbPet.Position = Character:FindFirstChild("Torso").CFrame * CFrame.new(2,2,1.4).p
                OrbPetCase.Position = Character:FindFirstChild("Torso").CFrame * CFrame.new(2,2,1.4).p
                OrbPet.Transparency = .8
                OrbPetCase.Transparency = .6
                wait(.005)
                OrbPet.Transparency = .6
                wait(.005)
                OrbPet.Transparency = .4
                wait(.005)
                OrbPet.Transparency = .2
                wait(.005)
                OrbPet.Transparency = .0
                local Weld = Instance.new("ManualWeld",OrbPet)
                Weld.Part0 = OrbPet
                Weld.Part1 = OrbPetCase
                Weld.C0 = CFrame.new(0,0,0)
            end)
        end

Please help,

Kyleo