While loop causing lag, not sure how to fix?

I have a script which rotates the camera around the lobby when the player first loads in, when they click a GUI button 'play' the color correction of the world changes from heavily red to a normal white color.

When testing the game there is no lag when 'play' is clicked, the color correction fades from red to white and then the camera is centred on the player like normal. However if the script is left to run for a minute and 'play' is clicked there is massive lag and the color correction fade takes a while to return to normal with a stuterring effect of the camera rotation.

I know the problem is to do with the while loop and the rotation of the camera because when I removed the while loop and the camera rotation there was no problem with the color correction fade no matter how long the script had been running.

I am really at a loss of how to fix this and would appreciate any help! Thanks

while InMenu do
	wait()
	camera.CoordinateFrame = CFrame.new(target.Position)  --Start at the position of the part
	* CFrame.Angles(0, angle, 0) --Rotate by the angle
	* CFrame.new(0, 5, 35)       --Move the camera backwards 5 units
	--camera.Focus = CFrame.new(target.Position)
	angle = angle + math.rad(0.2) --Change this for rotational speed


	StartButton.MouseButton1Click:Connect(function() --When the user presses the play 	button
		MenuPlayMusic:Play()
		MenuGUI.Visible = false --Hides the main menu GUI
		for i = 0,1,0.01 do
			MenuColorCorrection.TintColor = Color3.new(1, i, i) 
			wait()
		end

		InMenu = false
		camera.CameraSubject=player.Character.Humanoid
		camera.CameraType = "Follow"
end