Plot[
        Evaluate[
          Table[(Sin[a t]  -  a t Cos[a t])/t^3/a^3,  {a,  
              1,  10}]]  , {t,  0,  2}];