Plot[
        Evaluate[Table[BesselJ[n,  t],  {n,  0,  7}]],  {t,  0,  
          10}];