Here is a sample script that you should be able to use
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA\semiconductor capability.jmp" );
biv = Bivariate( Y( :NPN1 ), X( :PNP1 ), Fit Line( {Line Color( {213, 72, 87} )}, save predicteds ) );
biv << (curve[1] << save predicteds);
Column( N Cols( dt ) ) << set name( "Your new name" );
Jim