Function keeps looping when it's only suppose to be ran once?

Hello, I'm trying to make a tweening gun but whenever I run the BoltAesthetic() function it just gets stuck on CasingAesthetic() and loops on it

------------------------------------------------------
local GunModel = script.Parent:WaitForChild("GunModel")
local Bolt = GunModel:waitForChild("Bolt")
local BoltBack = GunModel:WaitForChild("BoltBack")
local BoltFoward = GunModel:WaitForChild("BoltFoward")
local Casing = GunModel:WaitForChild("Casing")
local CasingIn = GunModel:WaitForChild("CasingIn")
local CasingOut = GunModel:WaitForChild("CasingOut")
local TweenService = game:GetService("TweenService")
------------------------------------------------------
local BoltSpeed = 0.2
local CaseSpeed = 0.1
local BoltInfo = TweenInfo.new(BoltSpeed)
local CaseInfo = TweenInfo.new(CaseSpeed)
----
local CASEANIM = {}
CASEANIM.Position = CasingOut.Position
CASEANIM.Transparency = 0
----
local BoltBackT = {}
BoltBackT.Position = BoltBack.Position
----
local BoltForwardT = {}
BoltForwardT.Position = BoltFoward.Position
------------------------------------------------------
local CaseOut = TweenService:Create(Casing,CaseInfo,CASEANIM)
------
local BoltShootBack = TweenService:Create(Bolt,BoltInfo,BoltBackT)
------
local BoltShootForward = TweenService:Create(Bolt,BoltInfo,BoltForwardT)
------------------------------------------------------
Casing.Position = CasingIn.Position
Casing.Transparency = 1
------------------------------------------------------ 
function CasingAesthetic()
	Casing.Position = CasingIn.Position
	Casing.Transparency = 1
	wait(1)
	CaseOut:Play()
	wait(CaseSpeed)
	Casing.Transparency = 1
	local FakeCase = Casing:Clone()
	FakeCase.Anchored = false
	FakeCase.Transparency = 0
	FakeCase.CanCollide = true
	FakeCase.Parent = workspace
end
------------------------------------------------------
function BoltAesthetic()
	Bolt.Position = BoltFoward.Position
	wait()
	BoltShootBack:Play()
	wait(BoltSpeed)
	CasingAesthetic()
	wait()
	BoltShootForward:Play()
	wait(BoltSpeed)
end
------------------------------------------------------
while true do wait(5)
	BoltAesthetic()
end