You can use code to clone the animation.
This code clones the first animation on slide 1
Code:
Sub clone_anim()
Dim osld As Slide
Dim i As Integer
Set osld = ActivePresentation.Slides(1)
For i = 1 To 3
osld.TimeLine.MainSequence.Clone osld.TimeLine.MainSequence(1)
Next
End Sub
Don't know how to use code
This screencast shows how to go about setting up the slide
http://screencast.com/t/URUpto5ANK