How could i make a Earth Quake Effect?

Okay so i dont know how to Use Player's Camera at all but like i want to make a Earth quake effect...

local p = script.Parent
while wait(1) do
p.Orientation = Vector3.new(v,v,v)
wait(1)
p.Orientation = Vector3.new(v,v,v)
end

What would be a better way than doing this? I would Apperciate the help :DD